home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form frmEachPicDir
- Caption = "Play Each Picture"
- Height = 3555
- Left = 1425
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 3150
- ScaleWidth = 4275
- Top = 1140
- Visible = 0 'False
- Width = 4395
- Begin DriveListBox drvPicture
- Height = 315
- Left = 120
- TabIndex = 6
- Top = 2700
- Width = 2355
- End
- Begin DirListBox dirPicture
- Height = 1605
- Left = 120
- TabIndex = 4
- Top = 720
- Width = 2355
- End
- Begin CommandButton cmdCancel
- Cancel = -1 'True
- Caption = "Cancel"
- Height = 375
- Left = 2940
- TabIndex = 1
- Top = 600
- Width = 1215
- End
- Begin CommandButton cmdOK
- Caption = "OK"
- Default = -1 'True
- Height = 375
- Left = 2940
- TabIndex = 0
- Top = 120
- Width = 1215
- End
- Begin TextBox txtDirPicture
- BorderStyle = 0 'None
- Height = 225
- Left = 180
- TabIndex = 3
- TabStop = 0 'False
- Top = 420
- Width = 2715
- End
- Begin Label lblDrvPicture
- Caption = "Dri&ves"
- Height = 195
- Left = 180
- TabIndex = 5
- Top = 2460
- Width = 1035
- End
- Begin Label lblDirPicture
- Caption = "&Directories:"
- Height = 195
- Left = 180
- TabIndex = 2
- Top = 180
- Width = 1035
- End
- Option Explicit
- Sub cmdCancel_Click ()
- End
- End Sub
- Sub cmdOK_Click ()
- PicturePath = frmEachPicDir.txtDirPicture
- ChDir PicturePath
- Unload frmEachPicDir
- End Sub
- Sub dirPicture_Change ()
- txtDirPicture.Text = dirPicture.Path
- End Sub
- Sub drvPicture_Change ()
- dirPicture.Path = drvPicture.Drive
- End Sub
- Sub Form_Load ()
- txtDirPicture.Text = dirPicture.Path
- End Sub
-